#!/usr/bin/perl
use strict;
use warnings;

my $REPOS = shift;
my $TXN= shift;

open my $file, "<", "/ticketname.txt" or die "Can't open file";

sub checkticket()
{
   $file=shift; 
   while(<$file>)
   {
      chomp;

   }
}




foreach my $svnlook (@svnlook)
{
  my $user = `svnlook author -t $TXN $REPOS`;
  if(($user =~ m/sumbal/) && ($svnlook =~ m/^D /))
   {
     print STDERR "Error: Permission to delete denied for ", $user, ". \n";
     exit 1;
   }
   exit 0; 
}

